﻿Public Class FontObject
    Inherits ResourceObjectBase

    Public Property Size() As Integer
    Public Property Color() As Color
    Public Property Font() As SpriteFont

    Public Sub New()
        MyBase.New()
        Me.Size = 0
        Me.Color = Color.Black
    End Sub

    Public Sub New(ByVal name As String, ByVal fontFileName As String, ByVal spf As SpriteFont, Optional ByVal fontSize As Integer = 22)
        MyBase.New(name, fontFileName)
        Me.Font = spf
        Me.Size = fontSize
        Me.Color = Color.Black
    End Sub

    Public Sub New(ByVal name As String, ByVal fontFileName As String, ByVal spf As SpriteFont, ByVal color As Color, Optional ByVal fontSize As Integer = 22)
        MyBase.New(name, fontFileName)
        Me.Font = spf
        Me.Size = fontSize
        Me.Color = color
    End Sub

End Class